home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 16 / 64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64 / achse l7 (.txt) next >
Commodore BASIC  |  2022-10-26  |  376b  |  18 lines
  1. 10 xu=-5 : xo=5 : yu=-5 : yo=5
  2. 20 sys 37173,"int(x)",xu,xo,yu,yo
  3. 30 :
  4. 40 yp=abs(yo/(yo-yu))*199
  5. 50 for xv=xu to xo
  6. 60 : xp=abs((xv-xu)/(xo-xu))*319
  7. 70 : for i=-3 to 3 : sys 38144,xp,abs(yp+i) : next i
  8. 80 next xv
  9. 90 :
  10. 100 xp=abs(xu/(yo-yu))*319
  11. 110 for yh=xu to xo
  12. 120 : yp=abs((yo-yh)/(yo-yu))*199
  13. 130 : for i=-3 to 3 : sys 38144,abs(xp+i),yp : next i
  14. 140 next yh
  15. 150 :
  16. 160 getz$ : if z$="" then 160
  17. 170 sys40211
  18.